home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / WebcamViewer.dxpack / {675E3035-77E9-4116-8F6F-08D51F0DBEF8}.DXScript2 next >
Extensible Markup Language  |  2004-05-19  |  1KB  |  24 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.  
  7. End Sub
  8.  
  9. 'Called when the script is terminated
  10. Sub Object_OnScriptExit
  11.  
  12. End Sub
  13.  
  14. Sub Object_OnLButtonUp(x,y,b)
  15. If b=False Then
  16.     newURL = InputBox("Pick new URL", "Webcam ...",DesktopX.ScriptObject("webcam_ctrl").URL)
  17.     If trim(newURL) <> "" Then
  18.         DesktopX.ScriptObject("webcam_ctrl").URL = newURL
  19.         DesktopX.Object("webcam").Picture = newURL
  20.     End If
  21. End If
  22. End Sub
  23. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>23</EditorLeft><EditorTop>529</EditorTop><EditorRight>739</EditorRight><EditorBottom>961</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  24.